home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0195.ZIP / REBOOT.LIB < prev    next >
Text File  |  1984-12-20  |  742b  |  18 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.    This short procedure does a System Reset ("warm reboot") by
  6.    calling Interrupt $19.  It is nearly equivalent to pressing
  7.    <Ctrl><Alt><Del>.  The System Reset does NOT do the initial
  8.    reliability and system checks, so you can lie to the PC about
  9.    Memory Size and Equipment by changing the appropriate memory
  10.    locations and then rebooting.
  11. }
  12. procedure reBoot;
  13. var
  14.   registers : integer;  {we don't care what goes into or out of the registers}
  15. begin
  16.   INTR($19,registers);
  17.   {That was it!}
  18. end;